<%

Function rodada_novo_rodada()

		
		str = "SELECT id from rodadas order by id desc"
  		Set rs = conexao_geral.Execute(str)	
		
		if not rs.eof then 
				id = rs("id")+1
		else
				id = 1
		End IF
		
		str = "INSERT into rodadas "
		str = str & "(id, status) "
		str = str & "VALUES ('" & id &"', "
		str = str & "'" & 0 & "')"		
		Set rsI = conexao_geral.Execute(str)
		
		If not rodada_existe_get_atual() then
			rodada_set_status()
		End If
		
		rodada_novo_rodada = id

End Function
%>
